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USR 

ohne nähen 

Normalerweise geschieht der Aufruf von 
Z80-Maschinenroutinen beim TRS-80 
(Level 2, Model 1) aus dem Basic mit 
USR(...), wobei allerdings zuvor in die 
Speicherstellen 16526/27 die Startadres- 
se der Routine geschrieben werden muß. 
Mit folgender Basic-Zeile - einmalig im 
, Programmkopf -erspart man sich das 
mühsame, zeit- und speicherplatzinten- 
sive Umrechnen in LSB und MSB der 
Startadresse und erhält den USR-Befehl, 
wie er z, B. im Sharp-Basic implemen- 
tiert ist: 

10 MC$=CHRS(205)+CHR$(127)+ 
CHR$(10)+CHR$(233): 
V=VARPTR(MC$) + 1: POKE16526, 
PEEK(V):POKEl6527,PEEK(V+l) 

Nach Ausführung dieser Befehlszeile er- 
hält der USR-Befehl die gewünschte ein- 
fache Form: 

20 1NPUT” START ADRESSE DER 
USR-FUNKTION ";SA 

30 X=USR(SA) 

startet ohne aufwendiges POKE 16526,... 
- Befehle das Z80-Unterprogramm an 
der gewünschten Adresse SA, was sich 
vor allem bei mehreren verschiedenen 
Unterprogrammaufrufen wohltuend be- 
merkbar macht. 

Verantwortlich für diese Vereinfachung 
ist die Stringvariable MCS, die folgendes 
4-Byte-Z80-Programm enthält, das mit 
USR(SA) gestartet wird: 

CD 7F 0A CALL 0A7FH; 

liest das USR-Argument ins HL-Register. 

E9 fP (HL); 

Sprung an gewünschte Startadresse. 
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